home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / MacFormat 92 CD / Shareware Plus / Utilities / FolderSynchronizer 1.8.9 / PlugIn / Dialog / 00002_Funzioni.ls < prev    next >
Encoding:
Text File  |  2000-04-17  |  1.3 KB  |  63 lines
  1. on Sinistra stringa, Valore
  2.   set lun to length(stringa)
  3.   if Valore > lun then
  4.     set Valore to lun
  5.   end if
  6.   if (Valore > 0) and (Valore <= lun) then
  7.     return char 1 to Valore of stringa
  8.   end if
  9. end
  10.  
  11. on Centro stringa, inizio, fine
  12.   set lun to length(stringa)
  13.   if voidp(fine) then
  14.     set fine to lun
  15.   end if
  16.   if (inizio > 0) and (fine <= lun) then
  17.     return char inizio to fine of stringa
  18.   end if
  19. end
  20.  
  21. on Destra stringa, Valore
  22.   set lun to length(stringa)
  23.   if Valore > lun then
  24.     set Valore to lun
  25.   end if
  26.   if (Valore >= 0) and (Valore <= lun) then
  27.     set pos to lun - Valore + 1
  28.     return char pos to lun of stringa
  29.   end if
  30. end
  31.  
  32. on BtnUp Bottone
  33.   if Bottone <> EMPTY then
  34.     set BottoneUp to "BtnUp" & char 6 to the length of Bottone of Bottone
  35.     return BottoneUp
  36.   end if
  37. end
  38.  
  39. on BtnDw BottoneUp
  40.   set BottoneDw to "BtnDw" & char 6 to the length of BottoneUp of BottoneUp
  41.   return BottoneDw
  42. end
  43.  
  44. on BtnRL BottoneUp
  45.   set BottoneRL to "BtnRL" & char 6 to the length of BottoneUp of BottoneUp
  46.   return BottoneRL
  47. end
  48.  
  49. on BtnOf BottoneUp
  50.   set BottoneOf to "BtnOf" & char 6 to the length of BottoneUp of BottoneUp
  51.   return BottoneOf
  52. end
  53.  
  54. on BtnName BottoneUp
  55.   set Bottone to char 6 to the length of BottoneUp of BottoneUp
  56.   return Bottone
  57. end
  58.  
  59. on BtnICNName BottoneUp
  60.   set Bottone to char 9 to the length of BottoneUp of BottoneUp
  61.   return Bottone
  62. end
  63.